﻿#! /usr/bin/perl -w

open (IN, "+<./47_imovel_mais.sql");

@file = <IN>;

seek IN,0,0;

foreach $file (@file){

$file =~ s/Âª/ª/g;
$file =~ s/â/ - /g; 
$file =~ s/Ã/Ü/g;
$file =~ s/Ã/Ê/g;
$file =~ s/â/"/g;
$file =~ s/Âº/º/g;
# $file =~ s/â/"/g;
$file =~ s/â/"/g;
$file =~ s/\Ã/É/g;
$file =~ s/Â®/î/g;
$file =~ s/Â¯/ï/g;
$file =~ s/Â°/ð/g;
$file =~ s/Â±/ñ/g;
$file =~ s/Â²/ò/g;
$file =~ s/Ã³/ó/g;
$file =~ s/Ã´/ô/g;
$file =~ s/Ãµ/õ/g;
$file =~ s/Â¶/ö/g;
$file =~ s/Â·/÷/g;
$file =~ s/Â¸/ø/g;
$file =~ s/Â¹/ù/g;
$file =~ s/Ãº/ú/g;
$file =~ s/Â»/û/g;
$file =~ s/Â¼/ü/g;
$file =~ s/Â½/ý/g;
$file =~ s/Ã¼/ü/g;
$file =~ s/Â¾/þ/g;
$file =~ s/Â¿/ÿ/g;
$file =~ s/Ã€/À/g;
$file =~ s/Ã�/Á/g;
$file =~ s/Ã‚/Â/g;
$file =~ s/Ãƒ/Ã/g;
$file =~ s/Ã„/Ä/g;
$file =~ s/Ã…/Å/g;
$file =~ s/Ã†/Æ/g;
$file =~ s/Ã‡/Ç/g;
$file =~ s/Ãˆ/È/g;
$file =~ s/Ã‰/É/g;
$file =~ s/ÃŠ/Ê/g;
$file =~ s/Ã‹/Ë/g;
$file =~ s/ÃŒ/Ì/g;
$file =~ s/Ã�/Í/g;
$file =~ s/ÃŽ/Î/g;
$file =~ s/Ã�/Ï/g;
$file =~ s/Ã�/Ð/g;
$file =~ s/Ã‘/Ñ/g;
$file =~ s/Ã’/Ò/g;
$file =~ s/Ã“/Ó/g;
$file =~ s/Ã”/Ô/g;
$file =~ s/Ã•/Õ/g;
$file =~ s/Ã–/Ö/g;
$file =~ s/Ã—/×/g;
$file =~ s/Ã˜/Ø/g;
$file =~ s/Ã™/Ù/g;
$file =~ s/Ãš/Ú/g;
$file =~ s/Ã›/Û/g;
$file =~ s/Ãœ/Ü/g;
$file =~ s/Ã�/Ý/g;
$file =~ s/Ãž/Þß/g;
$file =~ s/ÃŸ/ß/g;
$file =~ s/Ã /à/g;
$file =~ s/Ã¡/á/g;
$file =~ s/Ã¤/ä/g;
$file =~ s/Ã¥/å/g;
$file =~ s/Ã¦/æ/g;
$file =~ s/Ã§/ç/g;
$file =~ s/Ã¨/è/g;
$file =~ s/Ã©/é/g;
$file =~ s/Ãª/ê/g;
$file =~ s/Ã«/ë/g;
$file =~ s/Ã¬/ì/g;
$file =~ s/Ã¢/â/g;
$file =~ s/Ã­/í/g;
$file =~ s/Ã£/ã/g;
$file =~ s/Ã/Ú/g;
$file =~ s/Ã/Ô/g;
$file =~ s/Ã s/às/g;
$file =~ s/Ã /à/g;
$file =~ s/Ã/Í/g;
$file =~ s/Ã/Á/g;
# $file =~ s/Ã/í/g;
# $file =~ s/Ã/À//g;
$file =~ s/Ã/Â/g;


print IN $file;
}
close IN;
